home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / database / lbhr20_a.zip / PRTDRVS.MDX (.txt) < prev    next >
dBASE Multiple Index  |  1996-08-27  |  14KB  |  259 lines

  1. PRTDRVS
  2. PROCEDURE TEMPLATE     && Main program
  3. *-----------------------------------------------------------------
  4. * NAME
  5. *   C:\CENTWISE\CHKWRT\TEMPLATE.PRG - Main program for form.
  6. *-----------------------------------------------------------------
  7.     PRIVATE lTalk, lVoid, cOldProc, cFormRun, cDispMode, cNewMode
  8.     IF SET( 'TALK' ) = 'ON'
  9.         SET TALK OFF
  10.         lTalk = .T.
  11.     ELSE
  12.         lTalk = .F.
  13.     ENDIF
  14.     *----------------------------------------------
  15.     *-- Ma
  16. PRTTYPE
  17. gram is part of a linked exe  
  18.     *-- you must either include FORMRUN.DBO in your
  19.     *-- Project file or make sure that FORMRUN.DBO
  20.     *-- is in the same directory as your exe file. 
  21.     *-- Please note that the Automatic Link feature
  22.     *-- doesn't notice FORMRUN.DBO because of the
  23.     *-- macro expansion for the SET PROCEDURE.
  24.     *----------------------------------------------
  25.     cOldProc = SET( 'PROCEDURE' )
  26.     IF [dBASE Compiler] $ VERSION(0)
  27.         SET PROCEDURE TO FORMRUN
  28.     ELSE
  29.         cFormRun = HOME() + 'FORMRUN'
  30.         SET PROCEDURE TO ( cFormRun ) 
  31.     ENDIF
  32.     #include "TEMPLATE.DFM"
  33.     IF TYPE("TEMPLATE.SetDisp") = "L" .AND. TYPE("TEMPLATE.DispMode") = "C"
  34.         IF TEMPLATE.SetDisp
  35.             cDispMode = SET('DISPLAY')
  36.             cNewMode = TEMPLATE.DispMode
  37.             SET DISPLAY TO &cNewMode
  38.             TEMPLATE.Height = TEMPLATE.nHeight
  39.         ENDIF
  40.     ENDIF
  41.     *-------------------------------------------
  42.     *-- If ModalForm is missing from .DFM set it
  43.     *-------------------------------------------
  44.     IF TYPE( 'TEMPLATE.ModalForm' ) # 'L'
  45.         TEMPLATE.ModalForm = .T.        && Assume modal form if not set
  46.     ENDIF
  47.     *-----------------------------------
  48.     *-- Open the form based on ModalForm
  49.     *-----------------------------------
  50.     IF TEMPLATE.ModalForm
  51.         *-----------------------------------
  52.         *-- Use Readmodal() to open the form
  53.         *-----------------------------------
  54.         TEMPLATE.Action = .F.        && Set .T. by OKHAND before closing
  55.         lVoid = TEMPLATE.ReadModal()
  56.         IF TEMPLATE.Action
  57. PRTTYPE
  58. APPLE LASERWRITER                                 
  59. XEROX CORP 4045 LASER CP                          
  60. PRTTYPE
  61. APPLE LASERWRITER                                 
  62. ASCII                                             
  63. BROTHER HR-15, HR-25                              
  64. C.ITOH DIGITAL PRODUCTS,INC. 715                  
  65. C.ITOH DIGITAL PRODUCTS,INC. 815(P351 MODEL)      
  66. C.ITOH DIGITAL PRODUCTS,INC.PROWRITER JR          
  67. CANON BJ-130                                      
  68. CANON LBP-4                                       
  69. CANON-LBP-8 MARK III                              
  70. DATA PRODUCTS SPG-8050, SPG-8070                  
  71. DIABLO (XEROX) 630 API                            
  72. DICONIX 150, 150 PLUS                             
  73. EPSON APEX 80                                     
  74. EPSON DOT MATRIX FAMILY                           
  75. EPSON DX-10                                       
  76. EPSON DX-20, DX-35                                
  77. EPSON EPI-4000,EPI-6000 (LASER JET II EMULATION)  
  78. EPSON EX-800,EX-1000                              
  79. EPSON FX-100,FX-100 PLUS                          
  80. EPSON FX-1050                                     
  81. EPSON FX-185                                      
  82. EPSON FX-286E                                     
  83. EPSON FX-80,FX-80 PLUS                            
  84. EPSON FX-85                                       
  85. EPSON FX-850                                      
  86. EPSON FX-86E                                      
  87. EPSON GQ-3500                                     
  88. EPSON JX-80                                       
  89. EPSON JX-80 WITH 8177                             
  90. EPSON L-1000 ACTIONPRINTER                        
  91. EPSON L-750 ACTIONPRINTER                         
  92. EPSON LQ-1000                                     
  93. EPSON LQ-1010                                     
  94. EPSON LQ-1050                                     
  95. EPSON LQ-1500                                     
  96. EPSON LQ-2500                                     
  97. EPSON LQ-2550                                     
  98. EPSON LQ-500                                      
  99. EPSON LQ-510                                      
  100. EPSON LQ-800                                      
  101. EPSON LQ-850                                      
  102. EPSON LQ-950                                      
  103. EPSON LX-80, LX-810, LX-90                        
  104. EPSON MX-80, MX-100                               
  105. EPSON MX-80, MX-100 WITH GRAFTAX PLU              
  106. EPSON RX-100, FX-100, FX-100 PLUS                 
  107. EPSON RX-80, FX-80, FX-80 PLUS                    
  108. EPSON RX-80/FX-80 WITH 8177                       
  109. EPSON SQ-1500                                     
  110. EPSON SQ-2000                                     
  111. EPSON T-1000 ACTIONPRINTER                        
  112. EPSON T-750 ACTIONPRINTER                         
  113. FACIT 4512                                        
  114. GENERIC - ANY PRINTER NOT LISTED                  
  115. HP DESKJET (HP2276)                               
  116. HP DESKJET 500                                    
  117. HP DESKJET PLUS                                   
  118. HP HPDESKJET FAMILY                               
  119. HP LASERJET JII/III FAMILY                        
  120. HP LASERJET LJ 6 LPI                              
  121. HP LASERJET LJ 6.5 LPI                            
  122. HP LASERJET LJ LAND 6 LPI                         
  123. HP LASERJET LJ LAND 6.5 LPI                       
  124. HP LASERJET LJII 6 LPI,LJIID1 6 LPI (1-SIDE)      
  125. HP LASERJET LJII 6.5 LPI,LJIID1 6.5 LPI (1-SIDE)  
  126. HP LASERJET LJII LAND 6 LPI                       
  127. HP LASERJET LJIID1 6 LPI 1-SIDE                   
  128. HP LASERJET LJIID1 6.5 LPI (1-SIDE)               
  129. HP LASERJET LJIID1 LA 6 LPI 1-SIDE LAND           
  130. HP LASERJET LJIID2 6 LPI (2-SIDE)                 
  131. HP LASERJET LJIID2 6.5 LPI (2-SIDE)               
  132. HP LASERJET LJIII 6 LPI                           
  133. HP LASERJET LJIII 6.5 LPI                         
  134. HP LASERJET LJIII LAND 6 LPI                      
  135. HP LASERJET LJIIID1 6 LPI 1-SIDE                  
  136. HP LASERJET LJIIID1 6.5 LPI 1-SIDE                
  137. HP LASERJET LJIIID1 LA 6 LPI 1-SIDE LAND          
  138. HP LASERJET LJIIID2 6 LPI 2-SIDE                  
  139. HP LASERJET LJIIID2 6.5 LPI 2-SIDE                
  140. HP LASERJET LJIIIDSI1 6 LPI 1-SIDE                
  141. HP LASERJET LJIIIDSI1 6.5 LPI 1-SIDE              
  142. HP LASERJET LJIIIDSI1 LA 6 LPI 1-SIDE LAND        
  143. HP LASERJET LJIIIDSI2 6 LPI 2-SIDE                
  144. HP LASERJET LJIIIDSI2 6.5 LPI 2-SIDE              
  145. HP LASERJET LJIIIP 6 LPI                          
  146. HP LASERJET LJIIIP 6.5 LPI                        
  147. HP LASERJET LJIIIP LAND 6 LPI                     
  148. HP LASERJET LJIIISI (POSTSCRIPT)                  
  149. HP LASERJET LJIIISI 6 LPI                         
  150. HP LASERJET LJIIISI 6.5 LPI                       
  151. HP LASERJET LJIIISI LAND 6 LPI                    
  152. HP LASERJET LJIIP 6 LPI                           
  153. HP LASERJET LJIIP 6.5 LPI                         
  154. HP LASERJET LJIIP LAND 6 LPI                      
  155. HP PAINTJET                                       
  156. HP PAINTJET                                       
  157. HP PAINTJET XL                                    
  158. HP QUIETJET                                       
  159. HP QUIETJET                                       
  160. HP THINKJET                                       
  161. HP THINKJET                                       
  162. IBM COLOR JETPRINTER                              
  163. IBM EXECJET 4072                                  
  164. IBM GRAPHICS PRINTER                              
  165. IBM LASERPRINTER 4019                             
  166. IBM LASERPRINTER E                                
  167. IBM LASERPRINTER FAMILY                           
  168. IBM PROPRINTER                                    
  169. IBM PROPRINTER II                                 
  170. IBM PROPRINTER III                                
  171. IBM PROPRINTER XL                                 
  172. IBM QUIETWRITER (MODEL 1)                         
  173. IBM QUIETWRITER (MODEL 2)                         
  174. IBM QUIETWRITER (MODEL 3)                         
  175. IBM WHEELPRINTER                                  
  176. KODAK 150, 150 PLUS (DICONIX)                     
  177. NEC PINWRITER P2, P3                              
  178. NEC PINWRITER P5 (A)                              
  179. NEC SPINWRITER 3550                               
  180. NEC SPINWRITER 7710                               
  181. NEC SPINWRITER 8850                               
  182. OKIDATA LASERLINE 6 (LJ II EMULATION)             
  183. OKIDATA MICROLINE 182, 183                        
  184. OKIDATA MICROLINE 182/183 WITH PLUG 'N PLAY       
  185. OKIDATA MICROLINE 192, 193                        
  186. OKIDATA MICROLINE 393 (EPSON EMULATION)           
  187. OKIDATA MICROLINE 82A/83A WITH OKIGRAPH           
  188. OKIDATA MICROLINE 84                              
  189. OKIDATA MICROLINE 92, 93                          
  190. OKIDATA MICROLINE 92/93/192/193 WITH PLUG 'N PLAY 
  191. OKIDATA MICROLINE FAMILY (OKIDATA MODE)           
  192. OKIDATA OKIMATE-20                                
  193. OKIDATA PACEMARK 2350, 2410                       
  194. PANASONIC KX-P1080I                               
  195. PANASONIC KX-P1091I                               
  196. PANASONIC KX-P1092I                               
  197. PANASONIC KX-P1124                                
  198. PANASONIC KX-P1180                                
  199. PANASONIC KX-P1191                                
  200. PANASONIC KX-P1195                                
  201. PANASONIC KX-P1524                                
  202. PANASONIC KX-P1592                                
  203. PANASONIC KX-P1595                                
  204. PANASONIC KX-P1624                                
  205. PANASONIC KX-P1695                                
  206. PANASONIC KX-P4420 LASERPARTNER (LJ II MO)        
  207. PANASONIC KX-P4450 LASERPARTNER (LJ II MO)        
  208. POSTSCRIPT STANDARD                               
  209. QUME SPRINT 11 PLUS, LETTERPRO 20                 
  210. RICOH 6000 LANDSCAPE ORIENT                       
  211. RICOH 6000 PORTRAIT ORIENT                        
  212. STAR NX-10                                        
  213. STAR NX-1000                                      
  214. STAR NX-15                                        
  215. STAR NX-1500                                      
  216. STAR NX-2410                                      
  217. STAR NX-2415                                      
  218. STAR XR-1500                                      
  219. TANDY CORP CGP-220                                
  220. TEXAS INSTRUMENTS, INC 855,865                    
  221. TOSHIBA P321, P341, P351                          
  222. TOSHIBA PAGELASER/2                               
  223. XEROX CORP (DIABLO) 630 API                       
  224. XEROX CORP 4045 LASER CP                          
  225. PANASONIC KX-P4450 LASERPARTNER (LJ II MO)        
  226. POSTSCRIPT STANDARD                               
  227. QUME SPRINT 11 PLUS, LETTERPRO 20                 
  228. RICOH 6000 LANDSCAPE ORIENT                       
  229. RICOH 6000 PORTRAIT ORIENT                        
  230. STAR NX-10                                        
  231. STAR NX-1000                                      
  232. STAR NX-15                                        
  233. STAR NX-1500                                      
  234. STAR NX-2410                                      
  235. STAR NX-2415                                      
  236. STAR XR-1500                                      
  237. TANDY CORP CGP-220                                
  238. TEXAS INSTRUMENTS, INC 855,865                    
  239. TOSHIBA P321, P341, P351                          
  240. TOSHIBA PAGELASER/2                               
  241. EPSON EX-800,EX-1000                              
  242. EPSON LQ-2500                                     
  243. GENERIC - ANY PRINTER NOT LISTED                  
  244. HP LASERJET LJIII 6 LPI                           
  245. HP LASERJET LJIIISI 6.5 LPI                       
  246. IBM PROPRINTER                                    
  247. OKIDATA MICROLINE 393 (EPSON EMULATION)           
  248. PANASONIC KX-P1624                                
  249. TOSHIBA PAGELASER/2                               
  250. CEDITFLD
  251. CDIRSAVE
  252. CFILEEXT
  253. CTYPEFILE
  254. NDOTPOS
  255. CHKHNDCL
  256. CHKTENRW
  257. CHKTENCL
  258. CHKUNTRW
  259.